home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / SystemCode / alphaDefinitions.tcl < prev    next >
Encoding:
Text File  |  1998-12-16  |  8.5 KB  |  301 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  Alpha - new Tcl folder configuration
  4.  # 
  5.  #  FILE: "alphaDefinitions.tcl"
  6.  #                                    created: 98-04-05 21.31.20 
  7.  #                                last update: 16/12/1998 {2:02:33 pm} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Engineering and Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # Reorganisation carried out by Vince Darley with much help from Tom 
  15.  # Fetherston, Johan Linde and suggestions from the Alpha-D mailing list.  
  16.  # Alpha is shareware; please register with the author using the register 
  17.  # button in the about box.
  18.  #  
  19.  # ###################################################################
  20.  ##
  21.  
  22. proc alpha::getDefinitions {} {}
  23. namespace eval keys {}
  24. namespace eval global {}
  25. namespace eval win {}
  26.  
  27. # Default settings of some global parameters (not preferences settings)
  28. # These will all be over-written by user-defs if set.
  29. set resumeRevert 0
  30. set prefixString ">\ "
  31. set suffixString "\ <--"
  32. # mapping of windows to current modes.
  33. set win::Modes("") ""
  34. # keep count of number of dirty windows.
  35. set win::NumDirty 0
  36. set win::Current ""
  37. # For mark stack.
  38. set markName 0
  39. set markStack ""
  40. set winMenu "•263"
  41. set keyboard "U.S."
  42. set oldkeyboard ""
  43.  
  44. win::SetProportions
  45.  
  46. lunion ftpSigs Arch FTCh Woof
  47. lunion texSigs OTEX *TEX *XeT MPS*
  48. lunion browserSigs MOSS MSIE dogz OlG1 HTVW
  49. lunion httpDownloadSigs MOSS MSIE dogz OlG1 Geni Arch
  50. lunion tclshSigs WIsH TclL Geni
  51.  
  52. array set keys::specialProcs { 
  53.     "Next Stop" "ring::+"
  54.     "Next Stop Or Indent" "bind::IndentOrNextstop"
  55.     "Complete" "bind::Completion"
  56.     "Complete Or Tab" "bind::TabOrComplete"
  57.     "Prev Stop" "ring::-"
  58.     "Real Tab" "insertActualTab"
  59.     "nth Stop" "ring::nth"
  60.     "Clear All Stops" "ring::clear"
  61. }
  62.  
  63. array set keys::specialBindings {
  64.     "Complete" "<O/c"
  65.     "Prev Stop" "<U/c"
  66.     "Real Tab" "<I/c"
  67.     "nth Stop" "<B/c"
  68.     "Clear All Stops" "<U<B/c"
  69.     "Next Stop" ""
  70.     "Complete Or Tab" ""
  71.     "Next Stop Or Indent" "/c"
  72. }
  73.  
  74. # Note: the Mercutio MDEF can only handle icon-suite resources
  75. # with id's from 208 to 208+255 = 463.  Hence many of the little
  76. # icons which Alpha contains cannot appear in menus.  You could
  77. # of course do a little hacking....
  78. set alpha::_icons {
  79.     {DanR "Think Reference" 265}
  80.     {OTEX "OzTeX" 266}
  81.     {*TEX "TeXtures" 267}
  82.     {XXXX "LaTeX" 270}
  83.     {*XeT "CMacTeX" 272}
  84.     {TeX+ "DirectTeX Pro" 299}
  85.     {CWIE "Codewarrior" 268}
  86.     {dogz "Cyberdog" 281}
  87.     {Vbib "BibTeX" 282}
  88.     {SLab "Scilab" 283}
  89.     {IGR0 "Igor Pro" 284}
  90.     {JAVC "Apple Applet Viewer" 285}
  91.     {MOSS "Netscape Navigator" 293}
  92.     {MOSS "Netscape Communicator" 294}
  93.     {MSIE "Microsoft Internet Explorer" 295}
  94.     {OlG1 "MacLynx" 296}
  95.     {DanR "Think Ref Viewer" 310}
  96.     {gsVR "Ghostview" 311}
  97.     {PnLF "Finger" 313}
  98.     {RZMI "MakeIndex" 314}
  99.     {FTCh "Fetch" 315}
  100.     {TGE+ "Tarmac" 316}
  101.     {Gzip "Gzip" 317}
  102.     {DStf "DropStuff" 318}
  103.     {SITx "StuffIt Expander" 319}
  104.     {ALTV "Programmer's Assistant" 400}
  105.     {MPAD "Mupad" 411}
  106.     {GPSE "Gnuplot" 415}
  107.     {Vodo "VOODOO" 500}
  108. }
  109.  
  110. namespace eval remote {}
  111.  
  112. ensureset "remote::site(Alpha's Home)" \
  113.   "ftp://alpha.olm.net/pub/packages/"
  114. ensureset "remote::site(Alpha's Upload site)" \
  115.   "ftp://alpha.olm.net/incoming/"
  116. ensureset "remote::site(Vince's Alpha-D site)" \
  117.   "ftp://ftp.ucsd.edu/alpha/"
  118.  
  119. ensureset remote::listing {}
  120.  
  121.  
  122. set "keyboards(Australian)" {
  123.  {§1234567890-=[];'\`,./}
  124.  {±!@#$%^&*()_+{}:"|~<>?}
  125.  <U/[
  126.  <U/]
  127.  {'§' 0x0a '±' 0x0a}
  128. }
  129. set "keyboards(Brasil)" {
  130.  {§1234567890'+º´ç~\<,.-}
  131.  {±!"#$%&/()=?*ª`Ç^|>;:_}
  132.  <I<U/8
  133.  <I<U/9
  134.  {'§' 0x0a '±' 0x0a 'º' 0x21 'ª' 0x21 'ç' 0x29 'Ç' 0x29 '´' 0x1e '`' 0x1e '~' 0x27 '^' 0x27}
  135. }
  136. set "keyboards(British)" {
  137.  {§1234567890-=[];'\`,./}
  138.  {±!@£$%^&*()_+{}:"|~<>?}
  139.  <U/[
  140.  <U/]
  141.  {'§' 0x0a '±' 0x0a '£' 0x14}
  142. }
  143. set "keyboards(Canadian - CSA)" {
  144.  {/1234567890-=^ç;èàù,.é}
  145.  {\!@#$%?&*()_+¨Ç:ÈÀÙ'"É}
  146.  <I/7
  147.  <I/8
  148.  {'ç' 0x1e 'Ç' 0x1e 'è' 0x27 'È' 0x27 'à' 0x2a 'À' 0x2a 'é' 0x2c 'É' 0x2c 'ù' 0x32 'Ù' 0x32 '^' 0x21 '¨' 0x21 '7' 0x1a '8' 0x1c}
  149. }
  150. set "keyboards(Canadian - ISO)" {
  151.  {¬1234567890-=^ç;èàù,.é}
  152.  {°!"#$%?&*()_+¨Ç:ÈÀÙ'.É}
  153.  <I/7
  154.  <I/0
  155.  {'°' 0x0a '¬' 0x0a 'ç' 0x1e 'Ç' 0x1e 'è' 0x27 'È' 0x27 'à' 0x2a 'À' 0x2a 'é' 0x2c 'É' 0x2c 'ù' 0x32 'Ù' 0x32 '^' 0x21 '¨' 0x21 '7' 0x1a '0' 0x1d}
  156. }
  157. set "keyboards(Canadian - French)" {
  158.  {<1234567890-='[;`/¨,.é}
  159.  {>!@#$%?&*()_+"]:^|°<>ç}
  160.  <I/[
  161.  <I<U/[
  162.  {'é' 0x2c 'ç' 0x2c '¨' 0x06 '°' 0x06 '`' 0x27 '^' 0x27}
  163. }
  164. set "keyboards(Danish)" {
  165.  {$1234567890+´å¨æø'<,.-}
  166.  {§!"#€%&/()=?`Å^ÆØ*>;:_}
  167.  <I<U/8
  168.  <I<U/9
  169.  {'§' 0x0a '€' 0x15 'å' 0x21 'Å' 0x21 'æ' 0x29 'Æ' 0x29 'ø' 0x27 'Ø' 0x27 '¨' 0x1e '^' 0x1e '´' 0x18 '`' 0x18}
  170. }
  171. set "keyboards(Dutch)" {
  172.  {§1234567890-=[];'\`,./}
  173.  {±!@#$%^&*()_+{}:"|~<>?}
  174.  <U/[
  175.  <U/]
  176.  {'§' 0x0a '±' 0x0a}
  177. }
  178. set "keyboards(Español - ISO)" {
  179.  {º1234567890'¡`+ñ´ç<,.-}
  180.  {ª!"·$%&/()=?¿^*ѨÇ>;:_}
  181.  <I/´
  182.  <I/ç
  183.  {'ç' 0x2a 'ñ' 0x29 'Ç' 0x2a 'Ñ' 0x29 '¡' 0x18 '¿' 0x18 'º' 0x0a 'ª' 0x0a '·' 0x14 '`' 0x21 '^' 0x21 '´' 0x27 '¨' 0x27}
  184. }
  185. set "keyboards(Finnish)" {
  186.  {§1234567890+´å¨öä'<,.-}
  187.  {°!"#€%&/()=?`Å^ÖÄ*>;:_}
  188.  <I<U/8
  189.  <I<U/9
  190.  {'§' 0x0a '°' 0x0a '€' 0x15 'å' 0x21 'ä' 0x27 'ö' 0x29 'Å' 0x21 'Ä' 0x27 'Ö' 0x29 '¨' 0x1e '^' 0x1e '´' 0x18 '`' 0x18}
  191. }
  192. set "keyboards(Flemish)" {
  193.  {@&é"'(§è!çà)-^$ù`<,;:=}
  194.  {#1234567890°_¨*%£>?./+}
  195.  <I/(
  196.  <I/)
  197.  {'é' 0x13 '(' 0x17 '§' 0x16 'è' 0x1a 'ç' 0x19 'à' 0x1d ')' 0x1b '°' 0x1b 'ù' 0x27 '^' 0x21 '¨' 0x21 '`' 0x2a '£' 0x2a}
  198. }
  199. set "keyboards(French)" {
  200.  {@&é"'(§è!çà)-^$ù`<,;:=}
  201.  {#1234567890°_¨*%£>?./+}
  202.  <I/(
  203.  <I/)
  204.  {'é' 0x13 '(' 0x17 '§' 0x16 'è' 0x1a 'ç' 0x19 'à' 0x1d ')' 0x1b '°' 0x1b 'ù' 0x27 '^' 0x21 '¨' 0x21 '`' 0x2a '£' 0x2a}
  205. }
  206. set "keyboards(French - numerical)" {
  207.  {@&é"'(§è!çà)-^$ù`<,;:=}
  208.  {#1234567890°_¨*%£>?./+}
  209.  <I/(
  210.  <I/)
  211.  {'é' 0x13 '(' 0x17 '§' 0x16 'è' 0x1a 'ç' 0x19 'à' 0x1d ')' 0x1b '°' 0x1b 'ù' 0x27 '^' 0x21 '¨' 0x21 '`' 0x2a '£' 0x2a}
  212. }
  213. set "keyboards(German)" {
  214.  {^1234567890ß´ü+öä#<,.-}
  215.  {°!"§$%&/()=?`Ü*ÖÄ^>;:_}
  216.  <I/8
  217.  <I/9
  218.  {'^' 0x0a '°' 0x0a '§' 0x14 'ü' 0x21 'ö' 0x29 'ä' 0x27 'Ü' 0x21 'Ö' 0x29 'Ä' 0x27 'ß' 0x1b '´' 0x18 '`' 0x18 '8' 0x1c '9' 0x19}
  219. }
  220. set "keyboards(Italian)" {
  221.  {@&"'(çè)£àé-=ì$ù§<,;:ò}
  222.  {#1234567890_+^*%°>?./!}
  223.  <I/(
  224.  <I/)
  225.  {'(' 0x15 ')' 0x1a 'ç' 0x17 'è' 0x16 '£' 0x1c 'à' 0x19 'é' 0x1d 'ì' 0x21 'ù' 0x27 'ò' 0x2c '§' 0x2a '°' 0x2a}
  226. }
  227. set "keyboards(Norwegian)" {
  228.  {'1234567890+´å¨øæ@<,.-}
  229.  {§!"#$%&/()=?`Å^ØÆ*>;:_}
  230.  <I<U/8
  231.  <I<U/9
  232.  {'§' 0x0a 'å' 0x21 'æ' 0x27 'ø' 0x29 'Å' 0x21 'Æ' 0x27 'Ø' 0x29 '¨' 0x1e '^' 0x1e '´' 0x18 '`' 0x18}
  233. }
  234. set "keyboards(Spanish)" {
  235.  {[1234567890-=´`ñ;'<,.ç}
  236.  {]¡!#$%/&*()_+º¨Ñ:">¿?Ç}
  237.  <I<U/<
  238.  <U/[
  239.  {'¡' 0x12 '´' 0x21 'º' 0x21 'ñ' 0x29 'Ñ' 0x29 '¿' 0x2b 'ç' 0x2c 'Ç' 0x2c '`' 0x1e '¨' 0x1e}
  240. }
  241. set "keyboards(Swedish)" {
  242.  {§1234567890+´å¨öä'<,.-}
  243.  {°!"#€%&/()=?`Å^ÖÄ*>;:_}
  244.  <I<U/8
  245.  <I<U/9
  246.  {'§' 0x0a '°' 0x0a '€' 0x15 'å' 0x21 'Å' 0x21 'ä' 0x27 'Ä' 0x27 'ö' 0x29 'Ö' 0x29 '¨' 0x1e '^' 0x1e '´' 0x18 '`' 0x18}
  247. }
  248. set "keyboards(Swiss French)" {
  249.  {§1234567890'^è¨éà$<,.-}
  250.  {°+"*ç%&/()=?`ü!öä£>;:_}
  251.  <I/8
  252.  <I/9
  253.  {'§' 0x0a '°' 0x0a 'ü' 0x21 'è' 0x21 'ö' 0x29 'é' 0x29 'ä' 0x27 'à' 0x27 'ç' 0x15 '£' 0x2a '¨' 0x1e '!' 0x1e '^' 0x18 '`' 0x18 '8' 0x1c '9' 0x19}
  254. }
  255. set "keyboards(Swiss German)" {
  256.  {§1234567890'^ü¨öä$<,.-}
  257.  {°+"*ç%&/()=?`è!éà£>;:_}
  258.  <I/8
  259.  <I/9
  260.  {'§' 0x0a '°' 0x0a 'ü' 0x21 'è' 0x21 'ö' 0x29 'é' 0x29 'ä' 0x27 'à' 0x27 'ç' 0x15 '£' 0x2a '¨' 0x1e '!' 0x1e '^' 0x18 '`' 0x18 '8' 0x1c '9' 0x19}
  261. }
  262. set "keyboards(U.S.)" {
  263.  {§1234567890-=[];'\`,./}
  264.  {±!@#$%^&*()_+{}:"|~<>?}
  265.  <U/[
  266.  <U/]
  267.  {'§' 0x0a '±' 0x0a}
  268. }
  269.  
  270. set "keyboards(Slovenian)" {
  271.   {“1234567890/+πËÊæ<,.-}
  272.   {”!"#$%&'()=?*©–»ΔÆ>;:_}
  273.   <U<I/π
  274.   <U<I/
  275.   {'“' 0x0a '”' 0x0a 'π' 0x21 '©' 0x21 '' 0x1e '–' 0x1e 'Ë' 0x29 '»' 0x29 'Ê' 0x27 'Δ' 0x27 'æ' 0x2a 'Æ' 0x2a}
  276. }
  277.  
  278. set "keyboards(Croatian)" {
  279.   {“1234567890/+‰∂ãçÏ<,.-}
  280.   {”!"#$%&'()=?*·≠âåÎ>;:_}
  281.   <U<I/‰
  282.   <U<I/∂
  283.   {'“' 0x0a '”' 0x0a '‰' 0x21 '·' 0x21 '∂' 0x1e '≠' 0x1e 'ã' 0x29 'â' 0x29 'ç' 0x27 'å' 0x27 'Ï' 0x2a 'Î' 0x2a}
  284. }
  285.  
  286. if {![llength ${global::features}]} {
  287.     set global::features [list filesetMenu internetConfigMenu eudoraMenu]
  288.     if {!$skipPrefs} {
  289.     if {[dialog::yesno "Alpha contains a lot of useful additional functionality\
  290.       in the form of menus, packages and features.  Many of these provide\
  291.       basic things like completions, a recent files menu, keyboard macros,\
  292.       electric code insertion...\r\r  Would you like me to activate\
  293.       the standard feature set?  (Either\
  294.       way you can turn them on and off using the\
  295.       'Config->Preferences->Menus And Features' menu item)"]} {
  296.         lappend global::features recentFilesMenu elecCompletions \
  297.           elecExpansions macros elecBindings emacs autoContinueComment
  298.     }
  299.     }
  300. }
  301.